HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/PRG/Mac_F2C_1.3.2.sit/Mac F2C 1.3.2/Mac F2C Libraries/libF77 Sources/h_dim.c

C/C++ Source or Header | 1995-01-28 | 163b | 11 lines

#include "f2c.h"

#ifdef KR_headers
shortint h_dim(a,b) shortint *a, *b;
#else
shortint h_dim(shortint *a, shortint *b)
#endif
{
return( *a > *b ? *a - *b : 0);
}